home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
logs
/
logbook
/
dxcc.prg
< prev
next >
Wrap
Text File
|
1990-05-04
|
7KB
|
210 lines
*:*********************************************************************
*:
*: Program: DXCC.PRG
*:
*: System: PC-HAM Logbook
*: Author: Joe Kasser G3ZCZ
*: Copyright (c) 1990, Joe Kasser
*: Last modified: 05/04/90 13:45
*:
*: Called by: LOGAWARD.PRG
*:
*: Calls: DXCC5BGN.PRG
*: : LOGCHNGE.PRG
*: : DXCCSB.PRG
*: : DXCCPXED.PRG
*: : DXCC5B.PRG
*: : DXCCPXAD.PRG
*: : DXCCPRNT.PRG
*: : DXCCUPDT.PRG
*: : DXCCMAN.PRG
*:
*: Uses: &DXCC
*:
*: Documented 05/04/90 at 13:49 SNAP! version 3.12f
*:*********************************************************************
STORE ' ' TO dtask
DO WHILE dtask <> '*'
CLEAR
SET COLOR TO W+/R,W+/RB,BG+
@ 3,5 SAY 'G3ZCZ DXCC AWARD PACKAGE Version 2.1'
SET COLOR TO GR+/B,W+/RB,BG+
@ 5,1 SAY 'Default DXCC database is '
SET COLOR TO W+/R,W+/RB,BG+
@ 5,26 SAY TRIM(dxcc)
SET COLOR TO GR+/B,W+/RB,BG+
@ 6,1 SAY 'Default LOG database is'
SET COLOR TO W+/R,W+/RB,BG+
@ 6,26 SAY TRIM(logbook)
SET COLOR TO GR+/B,W+/RB,BG+
@ 9,1 SAY 'UPDATE DXCC RECORDS (Automatic) U'
@ 10,1 SAY 'UPDATE DXCC RECORDS (Manual) M'
@ 11,1 SAY 'CREATE A NEW DXCC DATABASE C'
@ 12,1 SAY 'CREATE 5BDXCC RECORDS 5'
@ 13,1 SAY 'PRINT DXCC RECORDS P'
@ 14,1 SAY 'ADD PREFIXES TO A DXCC DATABASE A'
@ 15,1 SAY 'CHANGE DXCC DATABASE D'
@ 16,1 SAY 'EDIT PREFIXES IN DXCC RECORD FILE E'
@ 17,1 SAY 'CHANGE LOGBOOK L'
@ 18,1 SAY 'UPDATE SINGLE BAND DXCC RECORD (Automatic) S'
@ 19,1 SAY 'DISPLAY DATA FOR A PREFIX/COUNTRY X'
@ 20,1 SAY 'DISPLAY FILES ON DISK DRIVE F'
@ 21,1 SAY 'QUIT THIS MENU *'
@ 22,1 SAY 'QRU'
@ 22,5 GET dtask
READ
IF dtask = 'F'
CLEAR
ACCEPT 'WHICH DRIVE ' TO diskdrive
diskdrive = SUBSTR(diskdrive,1,1)
STORE diskdrive + ':' TO diskdrive
DISPLAY Files ON &diskdrive
RELEASE diskdrive
WAIT
ENDIF
IF dtask = 'D'
@ 22,1 SAY 'Which DXCC file ?'
@ 22,20 GET dxcc
READ
IF FILE(dxcc+'.DBF')
@ 22,1 SAY ' '
ELSE
? 'WARNING, file',dxcc,' does not exist on default disk'
WAIT
ENDIF
ENDIF
IF dtask = 'C'
STORE 'DXCC' TO dxcc
IF FILE(dxcc+'.DBF')
STORE ' ' TO BLANK
ACCEPT 'What is the name of the new DXCC file ? ' TO dxcc
?
DO dxcc5bgn
ELSE
? 'ERROR, Blank file DXCC.DBF does not exist on default disk'
WAIT
ENDIF
ENDIF
IF dtask = 'L'
DO logchnge
ENDIF
IF dtask = '*'
* DO NOTHING
ELSE
IF FILE (dxcc+'.DBF')
*FILE EXISTS
DO CASE
CASE dtask = 'S'
DO dxccsb
CASE dtask = 'E'
DO dxccpxed
CASE dtask = '5'
DO dxcc5b
CASE dtask = 'A'
DO dxccpxad
CASE dtask = 'P'
CLEAR
STORE ' ' TO choice
@ 5,1 SAY ' '
ACCEPT 'All PXs,Worked/QSL-d,or QSL-d (P,W,Q) ? ' TO choice
@ 10,1 SAY ' '
IF choice = 'P' .or. choice = 'W' .or. choice = 'Q'
STORE ' ' TO pf
ACCEPT 'Do you want hard copy (Y/N) ? ' TO pf
DO dxccprnt
ELSE
? choice,' IS NOT VALID, ENTER P or W or Q only please '
ENDIF
WAIT
CASE dtask = 'U'
IF logbook = ' '
@ 23,1 SAY 'OPEN A LOGBOOK FIRST'
WAIT
ELSE
IF FILE (logbook+'.DBF')
DO dxccupdt
ELSE
@ 23,1 SAY 'ERROR, NO LOGBOOK PRESENT ON DEFAULT DRIVE'
WAIT
ENDIF
ENDIF
CASE dtask = 'M'
IF logbook = ' '
@ 23,1 SAY 'OPEN A LOGBOOK FIRST'
WAIT
ELSE
IF FILE (logbook+'.DBF')
DO dxccman
ELSE
@ 23,1 SAY 'ERROR, NO LOGBOOK PRESENT ON DEFAULT DRIVE'
WAIT
ENDIF
ENDIF
CASE dtask = 'X'
CLEAR
STORE ' ' TO epx
USE &dxcc
GOTO BOTTOM
STORE RECNO() TO lastpx
DO WHILE epx <> '*'
@ 8,1 SAY ' CURRENT DXCC FILE IS'
@ 8,25 SAY dxcc
@ 10,1 SAY ' Which Prefix (* to terminate) ? '
@ 10,35 GET epx
READ
STORE .t. TO fpx
IF epx <> '*'
LOCATE FOR px = TRIM(epx)
IF RECNO() = lastpx
*ERROR OR LAST PREFIX
LOCATE FOR px1 = TRIM(epx)
IF RECNO() < lastpx
STORE .F. TO fpx
ENDIF
ELSE
STORE .F. TO fpx
ENDIF
IF fpx
@ 12,1 SAY 'ERROR ???'
?? ' '
ELSE
SET COLOR TO W+/R,W+/RB,BG+
@ 12,1 SAY Country
@ 12,11 SAY ' '
?? px,px1,dcall,ddate,dtime,dband,dmode,dstate
SET COLOR TO GR+/B,W+/RB,BG+
ENDIF
ENDIF
ENDDO
USE
RELEASE epx,fpx,lastpx
CASE dtask = 'L' .or. dtask = 'C' .or. dtask = 'D' .or. dtask = 'F'
* DO NOTHING, INHIBIT OTHERWISE BRANCH HERE
OTHERWISE
? 'ERROR, DXCC DATABASE does not exist on default disk'
WAIT
ENDCASE
ENDIF
ENDIF
ENDDO
STORE ' ' TO dtask
USE
RELEASE thisband, dtask
RETURN
*: EOF: DXCC.PRG